/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / schools / algorithms / travels

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 03 e8 2f f4 20 50 72 | 6f 67 72 61 6d 20 54 72 |.../. Pr|ogram Tr|
|00000010| 61 76 65 6c 73 20 76 38 | 20 28 41 72 63 68 69 6d |avels v8| (Archim|
|00000020| 65 64 65 73 20 2b 20 42 | 41 53 49 43 20 56 29 0d |edes + B|ASIC V).|
|00000030| 03 f2 20 f4 20 28 63 29 | 20 44 2e 45 2e 20 42 6f |.. . (c)| D.E. Bo|
|00000040| 77 65 72 20 20 38 20 44 | 65 63 20 31 39 39 30 0d |wer  8 D|ec 1990.|
|00000050| 03 fc 04 0d 04 06 27 f4 | 20 53 6f 6c 76 65 20 54 |......'.| Solve T|
|00000060| 72 61 76 65 6c 6c 69 6e | 67 20 53 61 6c 65 73 6d |ravellin|g Salesm|
|00000070| 61 6e 20 70 72 6f 62 6c | 65 6d 0d 04 10 29 f4 20 |an probl|em...). |
|00000080| 75 73 69 6e 67 20 61 20 | 6d 6f 64 69 66 69 65 64 |using a |modified|
|00000090| 20 4d 65 74 72 6f 70 6f | 6c 69 73 20 6d 65 74 68 | Metropo|lis meth|
|000000a0| 6f 64 2e 0d 04 1a 05 20 | 0d 04 24 2a f4 20 27 53 |od..... |..$*. 'S|
|000000b0| 69 6d 75 6c 61 74 65 64 | 20 41 6e 6e 65 61 6c 69 |imulated| Anneali|
|000000c0| 6e 67 27 20 70 72 6f 63 | 65 64 75 72 65 73 20 61 |ng' proc|edures a|
|000000d0| 72 65 0d 04 2e 2a f4 20 | 64 65 73 63 72 69 62 65 |re...*. |describe|
|000000e0| 64 20 69 6e 20 6d 6f 72 | 65 20 64 65 74 61 69 6c |d in mor|e detail|
|000000f0| 20 69 6e 20 74 68 65 20 | 62 6f 6f 6b 0d 04 38 2a | in the |book..8*|
|00000100| f4 20 27 4e 75 6d 65 72 | 69 63 61 6c 20 52 65 63 |. 'Numer|ical Rec|
|00000110| 69 70 65 73 27 20 20 5b | 20 50 72 65 73 73 20 65 |ipes'  [| Press e|
|00000120| 74 20 61 6c 20 5d 0d 04 | 42 2d f4 20 70 75 62 6c |t al ]..|B-. publ|
|00000130| 69 73 68 65 64 20 62 79 | 20 43 61 6d 62 72 69 64 |ished by| Cambrid|
|00000140| 67 65 20 55 6e 69 76 65 | 72 73 69 74 79 20 50 72 |ge Unive|rsity Pr|
|00000150| 65 73 73 0d 04 4c 04 0d | 04 56 10 4d 61 78 63 69 |ess..L..|.V.Maxci|
|00000160| 74 79 25 3d 32 30 30 0d | 04 60 04 0d 04 6a 07 eb |ty%=200.|.`...j..|
|00000170| 20 37 0d 04 74 0c f2 6d | 6f 6e 69 74 6f 72 0d 04 | 7..t..m|onitor..|
|00000180| 7e 05 db 0d 04 88 0c f2 | 65 78 70 6c 61 69 6e 0d |~.......|explain.|
|00000190| 04 92 0a f2 73 65 74 75 | 70 0d 04 9c 12 eb 20 31 |....setu|p..... 1|
|000001a0| 38 2a 28 6d 74 79 70 65 | 2d 31 29 0d 04 a6 10 f2 |8*(mtype|-1).....|
|000001b0| 64 72 61 77 5f 73 63 72 | 65 65 6e 0d 04 b0 05 f5 |draw_scr|een.....|
|000001c0| 0d 04 ba 0b f2 73 65 61 | 72 63 68 0d 04 c4 09 f2 |.....sea|rch.....|
|000001d0| 65 78 69 74 0d 04 ce 0a | fd 20 45 78 69 74 0d 04 |exit....|. Exit..|
|000001e0| d8 04 0d 04 e2 11 eb 20 | 30 3a fb 30 3a fb 31 32 |....... |0:.0:.12|
|000001f0| 39 3a db 0d 04 ec 27 e7 | 20 61 62 6f 72 74 20 80 |9:....'.| abort .|
|00000200| 20 9f 3c 3e 31 37 20 8c | 20 f6 3a f1 20 22 20 61 | .<>17 .| .:. " a|
|00000210| 74 20 6c 69 6e 65 20 22 | 3b 9e 0d 04 f6 05 e0 0d |t line "|;.......|
|00000220| 05 00 05 20 0d 05 0a 05 | 20 0d 05 14 0e dd 20 f2 |... ....| ..... .|
|00000230| 6d 6f 6e 69 74 6f 72 0d | 05 1e 42 e3 20 72 6f 77 |monitor.|..B. row|
|00000240| 3d 30 20 b8 20 31 3a f1 | 8a 32 2c 72 6f 77 29 3b |=0 . 1:.|.2,row);|
|00000250| bd 31 33 31 3b bd 31 34 | 31 3b 22 54 72 61 76 65 |.131;.14|1;"Trave|
|00000260| 6c 6c 69 6e 67 20 53 61 | 6c 65 73 6d 61 6e 20 50 |lling Sa|lesman P|
|00000270| 72 6f 62 6c 65 6d 22 3a | ed 0d 05 28 26 f1 20 8a |roblem":|...(&. .|
|00000280| 37 2c 36 29 3b bd 31 32 | 39 3b 22 53 65 6c 65 63 |7,6);.12|9;"Selec|
|00000290| 74 20 4d 6f 6e 69 74 6f | 72 20 54 79 70 65 22 0d |t Monito|r Type".|
|000002a0| 05 32 2c f1 20 8a 36 2c | 31 31 29 3b bd 31 33 33 |.2,. .6,|11);.133|
|000002b0| 3b 22 31 20 3d 20 53 74 | 61 6e 64 61 72 64 20 52 |;"1 = St|andard R|
|000002c0| 47 42 20 4d 6f 6e 69 74 | 6f 72 22 0d 05 3c 2a f1 |GB Monit|or"..<*.|
|000002d0| 20 8a 36 2c 31 35 29 3b | bd 31 33 33 3b 22 32 20 | .6,15);|.133;"2 |
|000002e0| 3d 20 4d 75 6c 74 69 2d | 53 79 6e 63 20 4d 6f 6e |= Multi-|Sync Mon|
|000002f0| 69 74 6f 72 22 0d 05 46 | 28 f5 3a 4d 74 79 70 65 |itor"..F|(.:Mtype|
|00000300| 24 3d be 3a fd 20 4d 74 | 79 70 65 24 3d 22 31 22 |$=.:. Mt|ype$="1"|
|00000310| 20 84 20 4d 74 79 70 65 | 24 3d 22 32 22 0d 05 50 | . Mtype|$="2"..P|
|00000320| 13 6d 74 79 70 65 3d bb | 28 4d 74 79 70 65 24 29 |.mtype=.|(Mtype$)|
|00000330| 0d 05 5a 05 e1 0d 05 64 | 04 0d 05 6e 04 0d 05 78 |..Z....d|...n...x|
|00000340| 0e dd 20 f2 65 78 70 6c | 61 69 6e 0d 05 82 42 e3 |.. .expl|ain...B.|
|00000350| 20 72 6f 77 3d 30 20 b8 | 20 31 3a f1 8a 32 2c 72 | row=0 .| 1:..2,r|
|00000360| 6f 77 29 3b bd 31 33 31 | 3b bd 31 34 31 3b 22 54 |ow);.131|;.141;"T|
|00000370| 72 61 76 65 6c 6c 69 6e | 67 20 53 61 6c 65 73 6d |ravellin|g Salesm|
|00000380| 61 6e 20 50 72 6f 62 6c | 65 6d 22 3a ed 0d 05 8c |an Probl|em":....|
|00000390| 2a f1 20 27 22 54 68 69 | 73 20 70 72 6f 67 72 61 |*. '"Thi|s progra|
|000003a0| 6d 20 63 6f 6d 70 75 74 | 65 73 20 61 70 70 72 6f |m comput|es appro|
|000003b0| 78 69 6d 61 74 65 22 0d | 05 96 2c f1 20 22 73 6f |ximate".|..,. "so|
|000003c0| 6c 75 74 69 6f 6e 73 20 | 74 6f 20 74 68 65 20 54 |lutions |to the T|
|000003d0| 72 61 76 65 6c 6c 69 6e | 67 20 53 61 6c 65 73 6d |ravellin|g Salesm|
|000003e0| 61 6e 22 0d 05 a0 2b f1 | 20 22 70 72 6f 62 6c 65 |an"...+.| "proble|
|000003f0| 6d 2e 20 54 68 65 20 73 | 61 6c 65 73 6d 61 6e 20 |m. The s|alesman |
|00000400| 6d 75 73 74 20 66 69 6e | 64 20 74 68 65 22 0d 05 |must fin|d the"..|
|00000410| aa 2d f1 20 22 73 68 6f | 72 74 65 73 74 20 72 6f |.-. "sho|rtest ro|
|00000420| 75 74 65 20 74 6f 20 76 | 69 73 69 74 20 61 20 73 |ute to v|isit a s|
|00000430| 65 72 69 65 73 20 6f 66 | 20 4e 22 0d 05 b4 2c f1 |eries of| N"...,.|
|00000440| 20 22 63 69 74 69 65 73 | 20 61 6e 64 20 74 68 65 | "cities| and the|
|00000450| 6e 20 72 65 74 75 72 6e | 20 74 6f 20 74 68 65 20 |n return| to the |
|00000460| 73 74 61 72 74 2e 22 0d | 05 be 2b f1 20 22 54 68 |start.".|..+. "Th|
|00000470| 69 73 20 69 73 20 61 20 | 76 65 72 79 20 64 69 66 |is is a |very dif|
|00000480| 66 69 63 75 6c 74 20 70 | 72 6f 62 6c 65 6d 20 74 |ficult p|roblem t|
|00000490| 6f 22 0d 05 c8 2c f1 20 | 22 73 6f 6c 76 65 20 70 |o"...,. |"solve p|
|000004a0| 72 65 63 69 73 65 6c 79 | 20 65 78 63 65 70 74 20 |recisely| except |
|000004b0| 62 79 20 74 72 79 69 6e | 67 20 74 68 65 22 0d 05 |by tryin|g the"..|
|000004c0| d2 2e f1 20 22 61 70 70 | 72 6f 78 20 28 4e 2d 31 |... "app|rox (N-1|
|000004d0| 29 21 2f 32 20 64 69 73 | 74 69 6e 63 74 20 72 6f |)!/2 dis|tinct ro|
|000004e0| 75 74 65 73 2e 20 49 74 | 20 69 73 22 0d 05 dc 2f |utes. It| is".../|
|000004f0| f1 20 22 69 6e 20 74 68 | 65 20 6d 61 74 68 65 6d |. "in th|e mathem|
|00000500| 61 74 69 63 61 6c 20 63 | 6c 61 73 73 20 4e 50 2d |atical c|lass NP-|
|00000510| 43 6f 6d 70 6c 65 74 65 | 2e 22 27 0d 05 e6 2f f1 |Complete|."'.../.|
|00000520| 20 22 54 68 65 20 70 72 | 6f 67 72 61 6d 20 73 65 | "The pr|ogram se|
|00000530| 61 72 63 68 65 73 20 66 | 6f 72 20 61 20 6e 65 61 |arches f|or a nea|
|00000540| 72 20 6f 70 74 69 6d 75 | 6d 22 0d 05 f0 2f f1 20 |r optimu|m".../. |
|00000550| 22 73 6f 6c 75 74 69 6f | 6e 20 75 73 69 6e 67 20 |"solutio|n using |
|00000560| 61 20 6d 6f 64 65 72 6e | 20 73 74 72 61 74 65 67 |a modern| strateg|
|00000570| 79 20 63 61 6c 6c 65 64 | 22 0d 05 fa 2d f1 20 22 |y called|"...-. "|
|00000580| 27 73 69 6d 75 6c 61 74 | 65 64 20 61 6e 6e 65 61 |'simulat|ed annea|
|00000590| 6c 69 6e 67 27 2e 20 52 | 61 6e 64 6f 6d 20 63 68 |ling'. R|andom ch|
|000005a0| 61 6e 67 65 73 22 0d 06 | 04 2f f1 20 22 61 72 65 |anges"..|./. "are|
|000005b0| 20 6d 61 64 65 20 74 6f | 20 74 68 65 20 72 6f 75 | made to| the rou|
|000005c0| 74 65 2e 20 52 6f 75 74 | 65 20 72 65 64 75 63 74 |te. Rout|e reduct|
|000005d0| 69 6f 6e 73 22 0d 06 0e | 2b f1 20 22 61 72 65 20 |ions"...|+. "are |
|000005e0| 61 63 63 65 70 74 65 64 | 20 61 6e 64 20 73 6f 6d |accepted| and som|
|000005f0| 65 20 69 6e 63 72 65 61 | 73 65 73 20 61 72 65 22 |e increa|ses are"|
|00000600| 0d 06 18 2e f1 20 22 70 | 65 72 6d 69 74 74 65 64 |..... "p|ermitted|
|00000610| 20 64 65 70 65 6e 64 69 | 6e 67 20 6f 6e 20 61 20 | dependi|ng on a |
|00000620| 27 74 65 6d 70 65 72 61 | 74 75 72 65 27 22 0d 06 |'tempera|ture'"..|
|00000630| 22 2a f1 20 22 77 68 69 | 63 68 20 69 73 20 67 72 |"*. "whi|ch is gr|
|00000640| 61 64 75 61 6c 6c 79 20 | 64 65 63 72 65 61 73 65 |adually |decrease|
|00000650| 64 2e 20 54 68 69 73 22 | 0d 06 2c 2e f1 20 22 6d |d. This"|..,.. "m|
|00000660| 65 74 68 6f 64 20 70 65 | 72 6d 69 74 73 20 62 65 |ethod pe|rmits be|
|00000670| 74 74 65 72 20 65 78 70 | 6c 6f 72 61 74 69 6f 6e |tter exp|loration|
|00000680| 20 6f 66 20 61 22 0d 06 | 36 2e f1 20 22 76 65 72 | of a"..|6.. "ver|
|00000690| 79 20 63 6f 6d 70 6c 65 | 78 20 4e 2d 64 69 6d 65 |y comple|x N-dime|
|000006a0| 6e 73 69 6f 6e 20 73 65 | 61 72 63 68 20 73 70 61 |nsion se|arch spa|
|000006b0| 63 65 2e 22 0d 06 40 22 | f1 20 27 22 50 72 65 73 |ce."..@"|. '"Pres|
|000006c0| 73 20 61 20 6b 65 79 2e | 2e 2e 2e 2e 22 3b 3a 2a |s a key.|....";:*|
|000006d0| 46 58 31 35 2c 31 0d 06 | 4a 07 52 3d a5 0d 06 54 |FX15,1..|J.R=...T|
|000006e0| 05 20 0d 06 5e 44 db 3a | e3 20 72 6f 77 3d 31 20 |. ..^D.:|. row=1 |
|000006f0| b8 20 32 3a f1 8a 32 2c | 72 6f 77 29 3b bd 31 33 |. 2:..2,|row);.13|
|00000700| 31 3b bd 31 34 31 3b 22 | 54 72 61 76 65 6c 6c 69 |1;.141;"|Travelli|
|00000710| 6e 67 20 53 61 6c 65 73 | 6d 61 6e 20 50 72 6f 62 |ng Sales|man Prob|
|00000720| 6c 65 6d 22 3a ed 0d 06 | 68 0b 40 25 3d 26 41 30 |lem":...|h.@%=&A0|
|00000730| 41 0d 06 72 31 f1 8a 35 | 2c 31 30 29 bd 31 32 39 |A..r1..5|,10).129|
|00000740| 3b 22 28 20 34 20 3c 3d | 20 4e 63 69 74 79 20 3c |;"( 4 <=| Ncity <|
|00000750| 3d 20 22 3b 4d 61 78 63 | 69 74 79 25 3b 22 20 29 |= ";Maxc|ity%;" )|
|00000760| 22 3b 0d 06 7c 05 f5 0d | 06 86 15 f1 8a 32 30 2c |";..|...|.....20,|
|00000770| 36 29 3b c4 31 39 2c 22 | 20 22 29 3b 0d 06 90 24 |6);.19,"| ");...$|
|00000780| f1 20 8a 36 2c 36 29 3b | 3a e8 20 22 4e 75 6d 62 |. .6,6);|:. "Numb|
|00000790| 65 72 20 6f 66 20 63 69 | 74 69 65 73 20 22 4e 63 |er of ci|ties "Nc|
|000007a0| 0d 06 9a 24 fd 20 4e 63 | 3e 33 20 80 20 4e 63 3c |...$. Nc|>3 . Nc<|
|000007b0| 3d 4d 61 78 63 69 74 79 | 25 20 80 20 4e 63 3d a8 |=Maxcity|% . Nc=.|
|000007c0| 28 4e 63 29 0d 06 a4 09 | 4e 25 3d 4e 63 0d 06 ae |(Nc)....|N%=Nc...|
|000007d0| 15 f1 8a 30 2c 31 30 29 | 3b c4 33 39 2c 22 20 22 |...0,10)|;.39," "|
|000007e0| 29 3b 0d 06 b8 27 f1 8a | 35 2c 31 30 29 bd 31 33 |);...'..|5,10).13|
|000007f0| 32 3b 22 50 72 6f 67 72 | 61 6d 20 45 78 69 74 20 |2;"Progr|am Exit |
|00000800| 4f 70 74 69 6f 6e 73 22 | 27 0d 06 c2 23 f1 8a 35 |Options"|'...#..5|
|00000810| 29 3b bd 31 33 32 3b 22 | 43 20 3d 20 43 6f 6e 74 |);.132;"|C = Cont|
|00000820| 69 6e 75 65 20 73 65 61 | 72 63 68 22 0d 06 cc 21 |inue sea|rch"...!|
|00000830| f1 8a 35 29 3b bd 31 33 | 32 3b 22 44 20 3d 20 47 |..5);.13|2;"D = G|
|00000840| 72 61 70 68 69 63 73 20 | 44 75 6d 70 22 0d 06 d6 |raphics |Dump"...|
|00000850| 18 f1 8a 35 29 3b bd 31 | 33 32 3b 22 45 20 3d 20 |...5);.1|32;"E = |
|00000860| 45 78 69 74 22 0d 06 e0 | 25 f1 8a 35 2c 31 37 29 |Exit"...|%..5,17)|
|00000870| 3b bd 31 33 31 3b 22 41 | 6c 74 65 72 20 6c 69 6e |;.131;"A|lter lin|
|00000880| 65 20 34 30 35 30 20 74 | 6f 22 0d 06 ea 25 f1 8a |e 4050 t|o"...%..|
|00000890| 35 2c 31 38 29 3b bd 31 | 33 31 3b 22 6d 61 74 63 |5,18);.1|31;"matc|
|000008a0| 68 20 79 6f 75 72 20 70 | 72 69 6e 74 65 72 22 0d |h your p|rinter".|
|000008b0| 06 f4 2f f1 8a 35 2c 32 | 31 29 3b bd 31 33 32 3b |../..5,2|1);.132;|
|000008c0| 22 50 72 65 73 73 20 61 | 20 6b 65 79 20 2e 2e 2e |"Press a| key ...|
|000008d0| 2e 2e 2e 2e 22 3b 3a 2a | 46 58 31 35 2c 31 0d 06 |....";:*|FX15,1..|
|000008e0| fe 07 52 3d a5 0d 07 08 | 27 f1 8a 35 2c 32 31 29 |..R=....|'..5,21)|
|000008f0| 3b bd 31 33 32 3b 22 53 | 65 74 74 69 6e 67 20 75 |;.132;"S|etting u|
|00000900| 70 20 2e 2e 2e 2e 2e 2e | 2e 2e 22 3b 0d 07 12 05 |p ......|..";....|
|00000910| e1 0d 07 1c 05 20 0d 07 | 26 05 20 0d 07 30 0c dd |..... ..|&. ..0..|
|00000920| 20 f2 73 65 74 75 70 0d | 07 3a 05 20 0d 07 44 0b | .setup.|.:. ..D.|
|00000930| 61 62 6f 72 74 3d a3 0d | 07 4e 0c 2a 46 58 32 32 |abort=..|.N.*FX22|
|00000940| 39 2c 30 0d 07 58 1c ee | 20 85 3a ee 20 85 20 87 |9,0..X..| .:. . .|
|00000950| 3a 61 62 6f 72 74 3d b9 | 3a e5 20 8d 64 62 44 0d |:abort=.|:. .dbD.|
|00000960| 07 62 21 de 20 44 69 73 | 74 28 4e 25 2c 4e 25 29 |.b!. Dis|t(N%,N%)|
|00000970| 2c 20 78 25 28 4e 25 29 | 2c 20 79 25 28 4e 25 29 |, x%(N%)|, y%(N%)|
|00000980| 0d 07 6c 22 de 20 4f 72 | 64 20 4e 25 2c 20 54 6f |..l". Or|d N%, To|
|00000990| 72 64 20 4e 25 2c 20 42 | 65 73 74 5f 6f 72 64 20 |rd N%, B|est_ord |
|000009a0| 4e 25 0d 07 76 05 20 0d | 07 80 26 52 6c 69 6d 3d |N%..v. .|..&Rlim=|
|000009b0| 2e 37 35 3a f4 20 72 65 | 76 65 72 73 65 2f 74 72 |.75:. re|verse/tr|
|000009c0| 61 6e 73 70 6f 72 74 20 | 73 70 6c 69 74 0d 07 8a |ansport |split...|
|000009d0| 24 4d 61 78 74 72 79 25 | 3d 32 35 2a 4e 25 3a 20 |$Maxtry%|=25*N%: |
|000009e0| f4 20 6d 61 78 20 74 72 | 69 61 6c 73 2f 74 65 6d |. max tr|ials/tem|
|000009f0| 70 0d 07 94 25 4d 61 78 | 73 75 63 25 3d 32 2a 4e |p...%Max|suc%=2*N|
|00000a00| 25 20 3a 20 f4 20 6d 61 | 78 20 73 75 63 63 65 73 |% : . ma|x succes|
|00000a10| 73 2f 74 65 6d 70 0d 07 | 9e 0d 4e 63 31 25 3d 4e |s/temp..|..Nc1%=N|
|00000a20| 25 2d 31 0d 07 a8 0d 4e | 63 32 25 3d 4e 25 2d 32 |%-1....N|c2%=N%-2|
|00000a30| 0d 07 b2 1c 54 72 69 61 | 6c 73 25 3d 30 3a 52 65 |....Tria|ls%=0:Re|
|00000a40| 76 25 3d 30 3a 54 72 61 | 6e 25 3d 30 0d 07 bc 2e |v%=0:Tra|n%=0....|
|00000a50| 52 3d b3 28 2d 4e 25 2a | af 29 3a 20 f4 20 73 65 |R=.(-N%*|.): . se|
|00000a60| 65 64 20 72 61 6e 64 6f | 6d 20 6e 75 6d 62 65 72 |ed rando|m number|
|00000a70| 20 67 65 6e 65 72 61 74 | 6f 72 0d 07 c6 04 0d 07 | generat|or......|
|00000a80| d0 11 e3 20 4a 25 3d 30 | 20 b8 20 4e 63 31 25 0d |... J%=0| . Nc1%.|
|00000a90| 07 da 1d 4f 72 64 3f 4a | 25 3d 4a 25 3a 20 f4 20 |...Ord?J|%=J%: . |
|00000aa0| 69 6e 69 74 69 61 6c 20 | 70 61 74 68 0d 07 e4 12 |initial |path....|
|00000ab0| 42 65 73 74 5f 6f 72 64 | 3f 4a 25 3d 4a 25 0d 07 |Best_ord|?J%=J%..|
|00000ac0| ee 19 f1 8a 32 35 2c 32 | 31 29 3b 4e 63 31 25 2d |....25,2|1);Nc1%-|
|00000ad0| 4a 25 3b 22 20 22 3b 0d | 07 f8 1a 58 25 3d 32 30 |J%;" ";.|...X%=20|
|00000ae0| 2b b3 28 39 36 30 29 3a | 78 25 28 4a 25 29 3d 58 |+.(960):|x%(J%)=X|
|00000af0| 25 0d 08 02 1a 59 25 3d | 32 30 2b b3 28 39 36 30 |%....Y%=|20+.(960|
|00000b00| 29 3a 79 25 28 4a 25 29 | 3d 59 25 0d 08 0c 11 e3 |):y%(J%)|=Y%.....|
|00000b10| 20 4b 25 3d 30 20 b8 20 | 4a 25 2d 31 0d 08 16 41 | K%=0 . |J%-1...A|
|00000b20| 44 6a 6b 3d b6 28 28 78 | 25 28 4b 25 29 2d 58 25 |Djk=.((x|%(K%)-X%|
|00000b30| 29 5e 32 2b 28 79 25 28 | 4b 25 29 2d 59 25 29 5e |)^2+(y%(|K%)-Y%)^|
|00000b40| 32 29 3a f4 20 73 70 65 | 63 69 66 69 63 20 74 6f |2):. spe|cific to|
|00000b50| 20 74 68 69 73 20 70 72 | 6f 62 6c 65 6d 0d 08 20 | this pr|oblem.. |
|00000b60| 23 44 69 73 74 28 4a 25 | 2c 4b 25 29 3d 44 6a 6b |#Dist(J%|,K%)=Djk|
|00000b70| 3a 44 69 73 74 28 4b 25 | 2c 4a 25 29 3d 44 6a 6b |:Dist(K%|,J%)=Djk|
|00000b80| 0d 08 2a 05 ed 0d 08 34 | 05 ed 0d 08 3e 05 e1 0d |..*....4|....>...|
|00000b90| 08 48 05 20 0d 08 52 05 | 20 0d 08 5c 12 dd 20 f2 |.H. ..R.| ..\.. .|
|00000ba0| 64 72 61 77 5f 73 63 72 | 65 65 6e 0d 08 66 05 db |draw_scr|een..f..|
|00000bb0| 0d 08 70 09 ec 20 30 2c | 30 0d 08 7a 18 df 20 31 |..p.. 0,|0..z.. 1|
|00000bc0| 32 37 39 2c 30 3a df 20 | 31 32 37 39 2c 31 30 30 |279,0:. |1279,100|
|00000bd0| 30 0d 08 84 12 df 20 30 | 2c 31 30 30 30 3a df 20 |0..... 0|,1000:. |
|00000be0| 30 2c 30 0d 08 8e 18 ec | 20 31 30 30 30 2c 30 3a |0,0.....| 1000,0:|
|00000bf0| df 20 31 30 30 30 2c 31 | 30 30 30 0d 08 98 19 ec |. 1000,1|000.....|
|00000c00| 20 31 30 30 30 2c 39 30 | 30 3a df 20 31 32 37 39 | 1000,90|0:. 1279|
|00000c10| 2c 39 30 30 0d 08 a2 19 | ec 20 31 30 30 30 2c 38 |,900....|. 1000,8|
|00000c20| 30 30 3a df 20 31 32 37 | 39 2c 38 30 30 0d 08 ac |00:. 127|9,800...|
|00000c30| 1c f1 8a 36 37 2c 32 2a | 6d 74 79 70 65 29 3b 22 |...67,2*|mtype);"|
|00000c40| 54 52 41 56 45 4c 53 22 | 3b 0d 08 b6 1b f1 8a 36 |TRAVELS"|;......6|
|00000c50| 37 2c 35 2a 6d 74 79 70 | 65 29 3b 22 4e 63 3d 22 |7,5*mtyp|e);"Nc="|
|00000c60| 3b 4e 25 3b 0d 08 c0 19 | f1 8a 36 37 2c 38 2a 6d |;N%;....|..67,8*m|
|00000c70| 74 79 70 65 29 3b 22 54 | 65 6d 70 22 3b 0d 08 ca |type);"T|emp";...|
|00000c80| 1c f1 8a 36 37 2c 31 32 | 2a 6d 74 79 70 65 29 3b |...67,12|*mtype);|
|00000c90| 22 54 72 69 61 6c 73 22 | 3b 0d 08 d4 1b f1 8a 36 |"Trials"|;......6|
|00000ca0| 37 2c 31 36 2a 6d 74 79 | 70 65 29 3b 22 52 65 76 |7,16*mty|pe);"Rev|
|00000cb0| 73 2e 22 3b 0d 08 de 1b | f1 8a 36 37 2c 32 30 2a |s.";....|..67,20*|
|00000cc0| 6d 74 79 70 65 29 3b 22 | 54 72 61 6e 73 22 3b 0d |mtype);"|Trans";.|
|00000cd0| 08 e8 1a f1 8a 36 37 2c | 32 34 2a 6d 74 79 70 65 |.....67,|24*mtype|
|00000ce0| 29 3b 22 54 69 6d 65 22 | 3b 0d 08 f2 1a f1 8a 36 |);"Time"|;......6|
|00000cf0| 37 2c 32 38 2a 6d 74 79 | 70 65 29 3b 22 50 61 74 |7,28*mty|pe);"Pat|
|00000d00| 68 22 3b 0d 08 fc 25 e3 | 20 4a 25 3d 39 2a 6d 74 |h";...%.| J%=9*mt|
|00000d10| 79 70 65 20 b8 20 32 35 | 2a 6d 74 79 70 65 20 88 |ype . 25|*mtype .|
|00000d20| 20 34 2a 6d 74 79 70 65 | 0d 09 06 11 f1 8a 36 37 | 4*mtype|......67|
|00000d30| 2c 4a 25 29 3b 22 30 22 | 3b 0d 09 10 05 ed 0d 09 |,J%);"0"|;.......|
|00000d40| 1a 0c ef 32 33 2c 31 2c | 30 7c 0d 09 24 16 ef 32 |...23,1,|0|..$..2|
|00000d50| 34 2c 32 30 3b 32 30 3b | 39 38 30 3b 39 38 30 3b |4,20;20;|980;980;|
|00000d60| 0d 09 2e 05 20 0d 09 38 | 11 ec 20 78 25 28 30 29 |.... ..8|.. x%(0)|
|00000d70| 2c 79 25 28 30 29 0d 09 | 42 0a 50 61 74 68 3d 30 |,y%(0)..|B.Path=0|
|00000d80| 0d 09 4c 11 e3 20 4a 25 | 3d 31 20 b8 20 4e 63 31 |..L.. J%|=1 . Nc1|
|00000d90| 25 0d 09 56 13 df 20 78 | 25 28 4a 25 29 2c 79 25 |%..V.. x|%(J%),y%|
|00000da0| 28 4a 25 29 0d 09 60 1b | 50 61 74 68 3d 50 61 74 |(J%)..`.|Path=Pat|
|00000db0| 68 2b 44 69 73 74 28 4a | 25 2d 31 2c 4a 25 29 0d |h+Dist(J|%-1,J%).|
|00000dc0| 09 6a 05 ed 0d 09 74 11 | df 20 78 25 28 30 29 2c |.j....t.|. x%(0),|
|00000dd0| 79 25 28 30 29 0d 09 7e | 1a 50 61 74 68 3d 50 61 |y%(0)..~|.Path=Pa|
|00000de0| 74 68 2b 44 69 73 74 28 | 4e 63 31 25 2c 30 29 0d |th+Dist(|Nc1%,0).|
|00000df0| 09 88 0d 42 65 73 74 3d | 50 61 74 68 0d 09 92 35 |...Best=|Path...5|
|00000e00| 54 65 6d 70 3d 50 61 74 | 68 2f 32 30 30 3a 20 f4 |Temp=Pat|h/200: .|
|00000e10| 20 53 65 74 20 69 6e 69 | 74 69 61 6c 20 73 79 73 | Set ini|tial sys|
|00000e20| 74 65 6d 20 27 54 65 6d | 70 65 72 61 74 75 72 65 |tem 'Tem|perature|
|00000e30| 27 0d 09 9c 21 54 6c 69 | 6d 69 74 3d 54 65 6d 70 |'...!Tli|mit=Temp|
|00000e40| 2f 35 30 3a 20 f4 20 66 | 69 6e 61 6c 20 6c 69 6d |/50: . f|inal lim|
|00000e50| 69 74 0d 09 a6 1f 44 6c | 69 6d 3d 2d 50 61 74 68 |it....Dl|im=-Path|
|00000e60| 2a 31 45 2d 36 3a 41 64 | 6c 3d 94 28 44 6c 69 6d |*1E-6:Ad|l=.(Dlim|
|00000e70| 29 0d 09 b0 0d 40 25 3d | 26 32 30 31 30 37 0d 09 |)....@%=|&20107..|
|00000e80| ba 18 f1 8a 36 37 2c 32 | 39 2a 6d 74 79 70 65 29 |....67,2|9*mtype)|
|00000e90| 3b 50 61 74 68 3b 0d 09 | c4 0e ef 37 3a 2a 46 58 |;Path;..|...7:*FX|
|00000ea0| 31 35 2c 31 0d 09 ce 05 | f5 0d 09 d8 26 f1 8a 36 |15,1....|....&..6|
|00000eb0| 34 2c 33 31 2a 6d 74 79 | 70 65 2d 31 29 3b 22 50 |4,31*mty|pe-1);"P|
|00000ec0| 72 65 73 73 20 61 20 6b | 65 79 2e 2e 2e 22 3b 0d |ress a k|ey...";.|
|00000ed0| 09 e2 0b 52 3d a6 28 34 | 30 29 0d 09 ec 26 f1 8a |...R=.(4|0)...&..|
|00000ee0| 36 34 2c 33 31 2a 6d 74 | 79 70 65 2d 31 29 3b 22 |64,31*mt|ype-1);"|
|00000ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 3b |        |      ";|
|00000f00| 0d 09 f6 14 e7 20 52 3d | 2d 31 20 8c 20 52 3d a6 |..... R=|-1 . R=.|
|00000f10| 28 32 35 29 0d 0a 00 0b | fd 20 52 3c 3e 2d 31 0d |(25)....|. R<>-1.|
|00000f20| 0a 0a 08 54 54 3d 30 0d | 0a 14 05 e1 0d 0a 1e 05 |...TT=0.|........|
|00000f30| 20 0d 0a 28 05 20 0d 0a | 32 0d dd 20 f2 73 65 61 | ..(. ..|2.. .sea|
|00000f40| 72 63 68 0d 0a 3c 05 20 | 0d 0a 46 08 d1 3d 54 54 |rch..<. |..F..=TT|
|00000f50| 0d 0a 50 05 f5 0d 0a 5a | 13 43 75 72 74 25 3d 30 |..P....Z|.Curt%=0|
|00000f60| 3a 43 75 72 73 25 3d 30 | 0d 0a 64 0d 40 25 3d 26 |:Curs%=0|..d.@%=&|
|00000f70| 32 30 33 30 36 0d 0a 6e | 17 f1 8a 36 37 2c 39 2a |20306..n|...67,9*|
|00000f80| 6d 74 79 70 65 29 3b 54 | 65 6d 70 3b 0d 0a 78 0b |mtype);T|emp;..x.|
|00000f90| 40 25 3d 26 41 30 41 0d | 0a 82 05 f5 0d 0a 8c 23 |@%=&A0A.|.......#|
|00000fa0| 54 72 69 61 6c 73 25 3d | 54 72 69 61 6c 73 25 2b |Trials%=|Trials%+|
|00000fb0| 31 3a 43 75 72 74 25 3d | 43 75 72 74 25 2b 31 0d |1:Curt%=|Curt%+1.|
|00000fc0| 0a 96 1b f1 8a 36 37 2c | 31 33 2a 6d 74 79 70 65 |.....67,|13*mtype|
|00000fd0| 29 3b 54 72 69 61 6c 73 | 25 3b 0d 0a a0 05 f5 0d |);Trials|%;......|
|00000fe0| 0a aa 0e 53 25 3d b3 28 | 4e 25 29 2d 31 0d 0a b4 |...S%=.(|N%)-1...|
|00000ff0| 0e 45 25 3d b3 28 4e 25 | 29 2d 31 0d 0a be 1f e7 |.E%=.(N%|)-1.....|
|00001000| 20 45 25 3c 53 25 20 8c | 20 54 25 3d 45 25 3a 45 | E%<S% .| T%=E%:E|
|00001010| 25 3d 53 25 3a 53 25 3d | 54 25 0d 0a c8 1e 4c 25 |%=S%:S%=|T%....L%|
|00001020| 3d 45 25 2d 53 25 3a 20 | f4 20 53 65 67 6d 65 6e |=E%-S%: |. Segmen|
|00001030| 74 20 6c 65 6e 67 74 68 | 0d 0a d2 14 fd 20 4c 25 |t length|..... L%|
|00001040| 3e 30 20 80 20 4c 25 3c | 4e 63 32 25 0d 0a dc 1c |>0 . L%<|Nc2%....|
|00001050| 52 25 3d 53 25 2d 31 3a | e7 20 52 25 3c 30 20 8c |R%=S%-1:|. R%<0 .|
|00001060| 20 52 25 3d 4e 63 31 25 | 0d 0a e6 1a 46 25 3d 45 | R%=Nc1%|....F%=E|
|00001070| 25 2b 31 3a e7 20 46 25 | 3d 4e 25 20 8c 20 46 25 |%+1:. F%|=N% . F%|
|00001080| 3d 30 0d 0a f0 2f 4f 65 | 25 3d 4f 72 64 3f 45 25 |=0.../Oe|%=Ord?E%|
|00001090| 3a 4f 66 25 3d 4f 72 64 | 3f 46 25 3a 4f 72 25 3d |:Of%=Ord|?F%:Or%=|
|000010a0| 4f 72 64 3f 52 25 3a 4f | 73 25 3d 4f 72 64 3f 53 |Ord?R%:O|s%=Ord?S|
|000010b0| 25 0d 0a fa 2a f4 20 53 | 65 6c 65 63 74 20 72 65 |%...*. S|elect re|
|000010c0| 76 65 72 73 61 6c 20 6f | 72 20 74 72 61 6e 73 70 |versal o|r transp|
|000010d0| 6f 72 74 20 61 74 74 65 | 6d 70 74 0d 0b 04 30 f4 |ort atte|mpt...0.|
|000010e0| 20 46 69 6e 64 20 70 61 | 74 68 20 63 68 61 6e 67 | Find pa|th chang|
|000010f0| 65 20 44 65 6c 74 61 20 | 64 75 65 20 74 6f 20 6d |e Delta |due to m|
|00001100| 6f 64 69 66 69 63 61 74 | 69 6f 6e 0d 0b 0e 10 52 |odificat|ion....R|
|00001110| 76 3d b3 28 31 29 3c 52 | 6c 69 6d 0d 0b 18 0a e7 |v=.(1)<R|lim.....|
|00001120| 20 52 76 20 8c 0d 0b 22 | 38 44 65 6c 74 61 3d 44 | Rv ..."|8Delta=D|
|00001130| 69 73 74 28 4f 72 25 2c | 4f 65 25 29 2b 44 69 73 |ist(Or%,|Oe%)+Dis|
|00001140| 74 28 4f 73 25 2c 4f 66 | 25 29 3a 20 f4 20 6e 65 |t(Os%,Of|%): . ne|
|00001150| 77 20 63 6f 6e 6e 65 63 | 74 69 6f 6e 73 0d 0b 2c |w connec|tions..,|
|00001160| 3d 44 65 6c 74 61 3d 44 | 65 6c 74 61 2d 44 69 73 |=Delta=D|elta-Dis|
|00001170| 74 28 4f 72 25 2c 4f 73 | 25 29 2d 44 69 73 74 28 |t(Or%,Os|%)-Dist(|
|00001180| 4f 65 25 2c 4f 66 25 29 | 3a 20 f4 20 64 69 73 63 |Oe%,Of%)|: . disc|
|00001190| 6f 6e 6e 65 63 74 69 6f | 6e 73 0d 0b 36 05 cc 0d |onnectio|ns..6...|
|000011a0| 0b 40 0e 5a 25 3d 4e 63 | 32 25 2d 4c 25 0d 0b 4a |.@.Z%=Nc|2%-L%..J|
|000011b0| 0c e7 20 5a 25 3d 31 20 | 8c 0d 0b 54 09 54 25 3d |.. Z%=1 |...T.T%=|
|000011c0| 46 25 0d 0b 5e 05 cc 0d | 0b 68 38 54 25 3d 28 45 |F%..^...|.h8T%=(E|
|000011d0| 25 2b b3 28 5a 25 29 29 | 20 83 20 4e 25 3a 20 f4 |%+.(Z%))| . N%: .|
|000011e0| 20 72 61 6e 64 6f 6d 20 | 6c 6f 63 61 74 69 6f 6e | random |location|
|000011f0| 20 6e 6f 74 20 6f 6e 20 | 73 65 67 6d 65 6e 74 0d | not on |segment.|
|00001200| 0b 72 05 cd 0d 0b 7c 1a | 55 25 3d 54 25 2b 31 3a |.r....|.|U%=T%+1:|
|00001210| e7 20 55 25 3d 4e 25 20 | 8c 20 55 25 3d 30 0d 0b |. U%=N% |. U%=0..|
|00001220| 86 19 4f 74 25 3d 4f 72 | 64 3f 54 25 3a 4f 75 25 |..Ot%=Or|d?T%:Ou%|
|00001230| 3d 4f 72 64 3f 55 25 0d | 0b 90 33 44 65 6c 74 61 |=Ord?U%.|..3Delta|
|00001240| 3d 44 69 73 74 28 4f 72 | 25 2c 4f 66 25 29 2b 44 |=Dist(Or|%,Of%)+D|
|00001250| 69 73 74 28 4f 74 25 2c | 4f 73 25 29 2b 44 69 73 |ist(Ot%,|Os%)+Dis|
|00001260| 74 28 4f 65 25 2c 4f 75 | 25 29 0d 0b 9a 39 44 65 |t(Oe%,Ou|%)...9De|
|00001270| 6c 74 61 3d 44 65 6c 74 | 61 2d 44 69 73 74 28 4f |lta=Delt|a-Dist(O|
|00001280| 72 25 2c 4f 73 25 29 2d | 44 69 73 74 28 4f 65 25 |r%,Os%)-|Dist(Oe%|
|00001290| 2c 4f 66 25 29 2d 44 69 | 73 74 28 4f 74 25 2c 4f |,Of%)-Di|st(Ot%,O|
|000012a0| 75 25 29 0d 0b a4 05 cd | 0d 0b ae 12 e7 20 44 65 |u%).....|..... De|
|000012b0| 6c 74 61 3c 44 6c 69 6d | 20 8c 0d 0b b8 09 4f 6b |lta<Dlim| .....Ok|
|000012c0| 25 3d b9 0d 0b c2 05 cc | 0d 0b cc 11 44 74 3d 44 |%=......|....Dt=D|
|000012d0| 65 6c 74 61 2f 54 65 6d | 70 0d 0b d6 18 e7 20 94 |elta/Tem|p..... .|
|000012e0| 28 44 74 29 3c 41 64 6c | 20 84 20 44 74 3e 34 20 |(Dt)<Adl| . Dt>4 |
|000012f0| 8c 0d 0b e0 09 4f 6b 25 | 3d a3 0d 0b ea 05 cc 0d |.....Ok%|=.......|
|00001300| 0b f4 15 4f 6b 25 3d 28 | b3 28 31 29 3c a1 28 2d |...Ok%=(|.(1)<.(-|
|00001310| 44 74 29 29 0d 0b fe 05 | cd 0d 0c 08 05 cd 0d 0c |Dt))....|........|
|00001320| 12 0b e7 20 4f 6b 25 20 | 8c 0d 0c 1c 11 43 75 72 |... Ok% |.....Cur|
|00001330| 73 25 3d 43 75 72 73 25 | 2b 31 0d 0c 26 13 50 61 |s%=Curs%|+1..&.Pa|
|00001340| 74 68 3d 50 61 74 68 2b | 44 65 6c 74 61 0d 0c 30 |th=Path+|Delta..0|
|00001350| 2f f4 20 45 78 65 63 75 | 74 65 20 74 68 65 20 73 |/. Execu|te the s|
|00001360| 65 67 6d 65 6e 74 20 72 | 65 76 65 72 73 61 6c 20 |egment r|eversal |
|00001370| 6f 72 20 74 72 61 6e 73 | 70 6f 72 74 0d 0c 3a 0a |or trans|port..:.|
|00001380| e7 20 52 76 20 8c 0d 0c | 44 0f 52 65 76 25 3d 52 |. Rv ...|D.Rev%=R|
|00001390| 65 76 25 2b 31 0d 0c 4e | 18 f1 8a 36 37 2c 31 37 |ev%+1..N|...67,17|
|000013a0| 2a 6d 74 79 70 65 29 3b | 52 65 76 25 3b 0d 0c 58 |*mtype);|Rev%;..X|
|000013b0| 13 e3 20 4a 25 3d 30 20 | b8 20 4c 25 20 81 20 32 |.. J%=0 |. L% . 2|
|000013c0| 0d 0c 62 12 5a 25 3d 4f | 72 64 3f 28 53 25 2b 4a |..b.Z%=O|rd?(S%+J|
|000013d0| 25 29 0d 0c 6c 1b 4f 72 | 64 3f 28 53 25 2b 4a 25 |%)..l.Or|d?(S%+J%|
|000013e0| 29 3d 4f 72 64 3f 28 45 | 25 2d 4a 25 29 0d 0c 76 |)=Ord?(E|%-J%)..v|
|000013f0| 12 4f 72 64 3f 28 45 25 | 2d 4a 25 29 3d 5a 25 0d |.Ord?(E%|-J%)=Z%.|
|00001400| 0c 80 05 ed 0d 0c 8a 05 | cc 0d 0c 94 11 54 72 61 |........|.....Tra|
|00001410| 6e 25 3d 54 72 61 6e 25 | 2b 31 0d 0c 9e 19 f1 8a |n%=Tran%|+1......|
|00001420| 36 37 2c 32 31 2a 6d 74 | 79 70 65 29 3b 54 72 61 |67,21*mt|ype);Tra|
|00001430| 6e 25 3b 0d 0c a8 0d 53 | 68 25 3d 54 25 2d 45 25 |n%;....S|h%=T%-E%|
|00001440| 0d 0c b2 0e e7 20 53 68 | 25 3e 3d 30 20 8c 0d 0c |..... Sh|%>=0 ...|
|00001450| bc 22 53 68 32 25 3d 53 | 25 2d 46 25 3a 4a 31 25 |."Sh2%=S|%-F%:J1%|
|00001460| 3d 46 25 3a 4a 32 25 3d | 54 25 3a 4a 73 25 3d 31 |=F%:J2%=|T%:Js%=1|
|00001470| 0d 0c c6 05 cc 0d 0c d0 | 2d 53 68 25 3d 55 25 2d |........|-Sh%=U%-|
|00001480| 53 25 3a 53 68 32 25 3d | 45 25 2d 52 25 3a 4a 31 |S%:Sh2%=|E%-R%:J1|
|00001490| 25 3d 52 25 3a 4a 32 25 | 3d 55 25 3a 4a 73 25 3d |%=R%:J2%|=U%:Js%=|
|000014a0| 2d 31 0d 0c da 05 cd 0d | 0c e4 10 e3 20 4a 25 3d |-1......|.... J%=|
|000014b0| 53 25 20 b8 20 45 25 0d | 0c ee 18 54 6f 72 64 3f |S% . E%.|...Tord?|
|000014c0| 28 4a 25 2b 53 68 25 29 | 3d 4f 72 64 3f 4a 25 0d |(J%+Sh%)|=Ord?J%.|
|000014d0| 0c f8 05 ed 0d 0d 02 18 | e3 20 4a 25 3d 4a 31 25 |........|. J%=J1%|
|000014e0| 20 b8 20 4a 32 25 20 88 | 20 4a 73 25 0d 0d 0c 18 | . J2% .| Js%....|
|000014f0| 4f 72 64 3f 28 4a 25 2b | 53 68 32 25 29 3d 4f 72 |Ord?(J%+|Sh2%)=Or|
|00001500| 64 3f 4a 25 0d 0d 16 05 | ed 0d 0d 20 18 e3 20 4a |d?J%....|... .. J|
|00001510| 25 3d 53 25 2b 53 68 25 | 20 b8 20 45 25 2b 53 68 |%=S%+Sh%| . E%+Sh|
|00001520| 25 0d 0d 2a 12 4f 72 64 | 3f 4a 25 3d 54 6f 72 64 |%..*.Ord|?J%=Tord|
|00001530| 3f 4a 25 0d 0d 34 05 ed | 0d 0d 3e 05 cd 0d 0d 48 |?J%..4..|..>....H|
|00001540| 11 e7 20 50 61 74 68 3c | 42 65 73 74 20 8c 0d 0d |.. Path<|Best ...|
|00001550| 52 0d 42 65 73 74 3d 50 | 61 74 68 0d 0d 5c 11 e3 |R.Best=P|ath..\..|
|00001560| 20 4a 25 3d 30 20 b8 20 | 4e 63 31 25 0d 0d 66 16 | J%=0 . |Nc1%..f.|
|00001570| 42 65 73 74 5f 6f 72 64 | 3f 4a 25 3d 4f 72 64 3f |Best_ord|?J%=Ord?|
|00001580| 4a 25 0d 0d 70 05 ed 0d | 0d 7a 0c f2 64 69 73 70 |J%..p...|.z..disp|
|00001590| 6c 61 79 0d 0d 84 05 cd | 0d 0d 8e 05 cd 0d 0d 98 |lay.....|........|
|000015a0| 23 fd 20 43 75 72 74 25 | 3d 4d 61 78 74 72 79 25 |#. Curt%|=Maxtry%|
|000015b0| 20 84 20 43 75 72 73 25 | 3d 4d 61 78 73 75 63 25 | . Curs%|=Maxsuc%|
|000015c0| 0d 0d a2 33 e7 20 54 65 | 6d 70 3c 42 65 73 74 2f |...3. Te|mp<Best/|
|000015d0| 31 36 30 20 8c 20 54 65 | 6d 70 3d 54 65 6d 70 2a |160 . Te|mp=Temp*|
|000015e0| 30 2e 38 20 8b 20 54 65 | 6d 70 3d 42 65 73 74 2f |0.8 . Te|mp=Best/|
|000015f0| 32 30 30 0d 0d ac 1b fd | 20 54 65 6d 70 3c 54 6c |200.....| Temp<Tl|
|00001600| 69 6d 69 74 20 84 20 43 | 75 72 73 25 3d 30 0d 0d |imit . C|urs%=0..|
|00001610| b6 05 20 0d 0d c0 0d 50 | 61 74 68 3d 42 65 73 74 |.. ....P|ath=Best|
|00001620| 0d 0d ca 11 e3 20 4a 25 | 3d 30 20 b8 20 4e 63 31 |..... J%|=0 . Nc1|
|00001630| 25 0d 0d d4 16 4f 72 64 | 3f 4a 25 3d 42 65 73 74 |%....Ord|?J%=Best|
|00001640| 5f 6f 72 64 3f 4a 25 0d | 0d de 05 ed 0d 0d e8 05 |_ord?J%.|........|
|00001650| 20 0d 0d f2 05 e1 0d 0d | fc 05 20 0d 0e 06 05 20 | .......|.. .... |
|00001660| 0d 0e 10 0e dd 20 f2 64 | 69 73 70 6c 61 79 0d 0e |..... .d|isplay..|
|00001670| 1a 05 da 0d 0e 24 0c 4f | 25 3d 4f 72 64 3f 30 0d |.....$.O|%=Ord?0.|
|00001680| 0e 2e 13 ec 20 78 25 28 | 4f 25 29 2c 79 25 28 4f |.... x%(|O%),y%(O|
|00001690| 25 29 0d 0e 38 11 e3 20 | 4a 25 3d 30 20 b8 20 4e |%)..8.. |J%=0 . N|
|000016a0| 63 31 25 0d 0e 42 0d 4f | 25 3d 4f 72 64 3f 4a 25 |c1%..B.O|%=Ord?J%|
|000016b0| 0d 0e 4c 13 df 20 78 25 | 28 4f 25 29 2c 79 25 28 |..L.. x%|(O%),y%(|
|000016c0| 4f 25 29 0d 0e 56 05 ed | 0d 0e 60 0c 4f 25 3d 4f |O%)..V..|..`.O%=O|
|000016d0| 72 64 3f 30 0d 0e 6a 13 | df 20 78 25 28 4f 25 29 |rd?0..j.|. x%(O%)|
|000016e0| 2c 79 25 28 4f 25 29 0d | 0e 74 15 f1 8a 36 37 2c |,y%(O%).|.t...67,|
|000016f0| 32 35 2a 6d 74 79 70 65 | 29 3b 91 3b 0d 0e 7e 0d |25*mtype|);.;..~.|
|00001700| 40 25 3d 26 32 30 31 30 | 37 0d 0e 88 18 f1 8a 36 |@%=&2010|7......6|
|00001710| 37 2c 32 39 2a 6d 74 79 | 70 65 29 3b 42 65 73 74 |7,29*mty|pe);Best|
|00001720| 3b 0d 0e 92 0b 40 25 3d | 26 41 30 41 0d 0e 9c 05 |;....@%=|&A0A....|
|00001730| e1 0d 0e a6 05 20 0d 0e | b0 05 20 0d 0e ba 0b dd |..... ..|.. .....|
|00001740| 20 f2 65 78 69 74 0d 0e | c4 08 54 54 3d 91 0d 0e | .exit..|..TT=...|
|00001750| ce 16 f1 8a 36 37 2c 32 | 35 2a 6d 74 79 70 65 29 |....67,2|5*mtype)|
|00001760| 3b 54 54 3b 0d 0e d8 05 | f5 0d 0e e2 06 ef 37 0d |;TT;....|......7.|
|00001770| 0e ec 1e f1 8a 36 37 2c | 33 31 2a 6d 74 79 70 65 |.....67,|31*mtype|
|00001780| 2d 31 29 3b 22 43 2f 44 | 2f 45 3f 22 3b 0d 0e f6 |-1);"C/D|/E?";...|
|00001790| 05 f5 0d 0f 00 1c f1 8a | 36 37 2c 33 31 2a 6d 74 |........|67,31*mt|
|000017a0| 79 70 65 29 3b 22 2a 44 | 75 6d 70 2a 22 3b 0d 0f |ype);"*D|ump*";..|
|000017b0| 0a 11 52 3d a6 28 34 30 | 29 20 80 20 26 44 46 0d |..R=.(40|) . &DF.|
|000017c0| 0f 14 1c f1 8a 36 37 2c | 33 31 2a 6d 74 79 70 65 |.....67,|31*mtype|
|000017d0| 29 3b 22 20 20 20 20 20 | 20 22 3b 0d 0f 1e 10 d1 |);"     | ";.....|
|000017e0| 3d 30 3a f5 20 fd 20 91 | 3d 32 30 0d 0f 28 13 fd |=0:. . .|=20..(..|
|000017f0| 20 52 3e 3d 36 37 20 80 | 20 52 3c 3d 36 39 0d 0f | R>=67 .| R<=69..|
|00001800| 32 1e f1 8a 36 37 2c 33 | 31 2a 6d 74 79 70 65 2d |2...67,3|1*mtype-|
|00001810| 31 29 3b 22 20 20 20 20 | 20 20 22 3b 0d 0f 3c 0f |1);"    |  ";..<.|
|00001820| e7 20 6d 74 79 70 65 3d | 31 20 8c 0d 0f 46 16 ef |. mtype=|1 ...F..|
|00001830| 32 34 2c 30 3b 30 3b 31 | 32 37 39 3b 31 30 32 33 |24,0;0;1|279;1023|
|00001840| 3b 0d 0f 50 15 ec 20 31 | 30 30 30 2c 30 3a df 20 |;..P.. 1|000,0:. |
|00001850| 31 32 37 39 2c 30 0d 0f | 5a 16 ef 32 34 2c 32 30 |1279,0..|Z..24,20|
|00001860| 3b 32 30 3b 39 38 30 3b | 39 38 30 3b 0d 0f 64 05 |;20;980;|980;..d.|
|00001870| cd 0d 0f 6e 0c e7 20 52 | 3d 36 37 20 8c 0d 0f 78 |...n.. R|=67 ...x|
|00001880| 0f e7 20 43 75 72 73 25 | 3d 30 20 8c 0d 0f 82 11 |.. Curs%|=0 .....|
|00001890| 4d 61 78 74 72 79 25 3d | 35 30 2a 4e 25 0d 0f 8c |Maxtry%=|50*N%...|
|000018a0| 05 cc 0d 0f 96 10 54 6c | 69 6d 3d 54 6c 69 6d 2f |......Tl|im=Tlim/|
|000018b0| 31 30 0d 0f a0 05 cd 0d | 0f aa 05 cd 0d 0f b4 46 |10......|.......F|
|000018c0| f4 20 41 6c 74 65 72 20 | 74 68 65 20 73 74 61 72 |. Alter |the star|
|000018d0| 20 63 6f 6d 6d 61 6e 64 | 20 69 6e 20 6c 69 6e 65 | command| in line|
|000018e0| 20 34 30 35 30 20 66 6f | 72 20 64 65 73 69 72 65 | 4050 fo|r desire|
|000018f0| 64 20 73 63 72 65 65 6e | 2d 64 75 6d 70 20 63 61 |d screen|-dump ca|
|00001900| 6c 6c 0d 0f be 44 f4 20 | 61 66 74 65 72 20 61 6e |ll...D. |after an|
|00001910| 20 52 4d 4c 6f 61 64 20 | 6f 66 20 74 68 65 20 48 | RMLoad |of the H|
|00001920| 61 72 64 43 6f 70 79 20 | 6d 6f 64 75 6c 65 20 66 |ardCopy |module f|
|00001930| 6f 72 20 44 6f 74 2d 4d | 61 74 72 69 78 20 70 72 |or Dot-M|atrix pr|
|00001940| 69 6e 74 65 72 73 0d 0f | c8 0c e7 20 52 3d 36 38 |inters..|... R=68|
|00001950| 20 8c 0d 0f d2 11 f4 20 | 2a 48 61 72 64 43 6f 70 | ...... |*HardCop|
|00001960| 79 46 58 0d 0f dc 05 cd | 0d 0f e6 11 fd 20 52 3d |yFX.....|..... R=|
|00001970| 36 37 20 84 20 52 3d 36 | 39 0d 0f f0 0f 45 78 69 |67 . R=6|9....Exi|
|00001980| 74 3d 28 52 3d 36 39 29 | 0d 0f fa 05 e1 0d ff    |t=(R=69)|....... |
+--------+-------------------------+-------------------------+--------+--------+